home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 8 / HYPERLIB-1993-VOL8-CD1.ISO.7z / HYPERLIB-1993-VOL8-CD1.ISO / Wingz / Demo for 9inch Monitor / 試験飛行2.0 / JTF.SCZ (.txt) next >
Wingz Script  |  1992-08-14  |  10KB  |  291 lines
  1. WNGZWZSC0120G
  2. TESTFLGT.WKZ>
  3. SHEETS5
  4. gfffff
  5. 433333
  6. gfffff
  7. 433333
  8. gfffff
  9. aiueo
  10. kkkkk
  11. .on repaint call JTF.SCZ:DrawLogo() end repaint
  12. s 2.0
  13. Osaka
  14. Copyright 
  15.  ASCII Corporation.
  16.     Helvetica
  17. July. 31 1992
  18.     Helvetica
  19. Kyoto
  20. Kyoto
  21. Kyoto
  22. BUTTON INFORMATION
  23. 0on repaint call JTF.SCZ:ret_button() end repaint
  24. 2on repaint call JTF.SCZ:right_button() end repaint
  25. 1on repaint call JTF.SCZ:left_button() end repaint
  26. 1on repaint call JTF.SCZ:home_button() end repaint
  27. folder
  28. file_sep
  29. page_counter
  30. home_action
  31. quit_actionD
  32. TFOpenX
  33. inc_page
  34. dec_page
  35. exit_buttone
  36. home_button
  37. left_button
  38. d_left_
  39. right_button
  40. d_right9
  41. ret_button}
  42. d_ret
  43. about¥
  44. DrawLogo
  45. button_info
  46.     JTF.SCZ -  (
  47.     HyperScript functions
  48.     Copyright (C) 1991 ASCII Corpration
  49.     1991/11/2
  50. define folder, file_sep,mac
  51. define page_counter
  52. function home_action()
  53. {    repaint object "home" }
  54.     repaint off
  55.     while right( name() , 12 ) <> "TESTFLGT.WKZ"
  56.         close now
  57.     end while
  58.     repaint window
  59.     repaint on
  60.     page_counter = 0
  61. end function
  62. function quit_action()
  63.     close now
  64.     page_counter = 0
  65. end function
  66. function TFOpen(wname,dorepaint)
  67.     if dorepaint
  68.         repaint off
  69.     end if
  70.     open folder &  file_sep & "SHEETS" & file_sep & wname
  71.     zoom window
  72.     unselect
  73.     tool sheet
  74.     if dorepaint
  75.         repaint window
  76.         repaint on
  77.     end if
  78. end function
  79. function inc_page()
  80.     page_counter = int(row()/35)
  81.     page_counter = page_counter + 1
  82.     if not page_counter
  83.         go to cell a1
  84.     else
  85.         go to cell makecell(1,page_counter*35)
  86.     end if
  87. end function {inc_page}
  88. function dec_page()
  89.     page_counter = int(row()/35)
  90.     page_counter = page_counter - 1
  91.     if  page_counter <= 0
  92.         go to cell a1
  93.         page_counter = 0
  94.     else
  95.         go to cell makecell(1,page_counter*35)
  96.     end if
  97. end function {dec_page}
  98. function exit_button()
  99. { drawing "EXIT" button }
  100.     viewport(0,0)(1,1)
  101.     square window(0,0)(11,11)
  102.     fill bg black(); fill pattern 20
  103.     paint rectangle (0,2)(5,10)
  104.     viewport (.4,.2)(1,.9)
  105.     square window (0,0)(4,4)
  106.     open polygon
  107.         move (4,1);draw (4,3);draw(2,3);draw(2,4);draw(0,2);draw(2,0);draw(2,1);draw(4,1)
  108.     close polygon
  109.     fill bg black()
  110.     fill bg blue()
  111.     fill pattern 4
  112.     paint polygon
  113.     kill polygon
  114.     viewport(0,0)(1,1)
  115.     square window(0,0)(11,11)
  116.     open polygon
  117.         move (0,2); draw(4.5,1); draw(4.5,9); draw(0,10); draw(0,2)
  118.     close polygon
  119.     fill fg black()
  120.     fill bg yellow()
  121.     fill pattern 4
  122.     paint polygon
  123.     kill polygon
  124.     fill bg white(); fill pattern 20
  125.     paint rectangle(3.5,5)(4,5.5)
  126. end function
  127. function home_button()
  128.     {drawing "home" button" }
  129.     viewport (0,0)(1,1)
  130.     square window (-1,-1)(10,10)
  131.     paint oval (6.5,8.5)(8,9.5)
  132.     paint rectangle (5.5,5)(7,7.5)
  133.     open polygon
  134.         move (5,0);draw (10,0);draw(10,3.3);draw(7.5,7);draw(5,3.5);draw(5,0)
  135.     close polygon
  136.     fill bg white();fill pattern 20
  137.     paint polygon;kill polygon
  138.     open polygon
  139.         move (5,3.5);draw (7.5,7);draw(2.5,7);draw(0,3.5);draw(5,3)
  140.     close polygon
  141.     fill fg black();fill bg red();fill pattern 4
  142.     paint polygon;kill polygon
  143.     fill bg white();fill pattern 4
  144.     paint rectangle(0,0)(5,3.5)
  145.     fill bg white();fill pattern 20
  146.     paint rectangle (1.7,1)(3.3,2.6)
  147.     move (2.5,1) draw (2.5,2.6) move(1.7,1.8) draw(3.3,1.8)
  148. end function
  149. function left_button()
  150.     {leftbutton}
  151.     viewport (0,0)(1,1)
  152.     square window (-0.75,-0.25)(4.25,4.75)
  153.     call d_left()
  154.     {fill bg black()}
  155.      message "aiueo"
  156.     fill pattern 23
  157.     paint polygon
  158.     kill polygon
  159.     square window (-0.5,-0.5)(4.5,4.5)
  160.     call d_left()
  161.     fill bg red()
  162.     fill pattern 20
  163.    message "kkkkk"
  164.     paint polygon
  165.     kill polygon
  166. end function
  167. function d_left()
  168.     open polygon
  169.         move (4,1)
  170.         draw (4,3)
  171.         draw(2,3)
  172.         draw(2,4)
  173.         draw(0,2)
  174.         draw(2,0)
  175.         draw(2,1)
  176.         draw(4,1)
  177.     close polygon
  178. end function
  179. function right_button()
  180.     {right button}
  181.     viewport (0,0)(1,1)
  182.     square window (-0.75,-0.25)(4.25,4.75)
  183.     call d_right()
  184.     {fill bg black()}
  185.     fill pattern 23
  186.     paint polygon
  187.     kill polygon
  188.     square window (-0.5,-0.5)(4.5,4.5)
  189.     call d_right()
  190.     fill bg red()
  191.     fill pattern 20
  192.     paint polygon
  193.     kill polygon
  194. end function
  195. function d_right()
  196.     open polygon
  197.         move (0,1)
  198.         draw (0,3)
  199.         draw(2,3)
  200.         draw(2,4)
  201.         draw(4,2)
  202.         draw(2,0)
  203.         draw(2,1)
  204.         draw(0,1)
  205.     close polygon
  206. end function
  207. function ret_button()
  208.     {Return button}
  209.     viewport (0,0)(1,1)
  210.     square window (-1.5,0)(7.5,9)
  211.     call d_ret()
  212.     {fill bg black()}
  213.     fill pattern 23
  214.     paint polygon
  215.     kill polygon
  216.     square window (-1,-1)(8,8)
  217.     call d_ret()
  218.     fill bg blue()
  219.     fill pattern 20
  220.     paint polygon
  221.     kill polygon
  222. end function
  223. function d_ret()
  224.     open polygon
  225.         move (6,1)
  226.         draw(7,2)
  227.         draw (7,7)
  228.         draw(4,7)
  229.         draw(4,4)
  230.         draw(2,4)
  231.         draw(2,5)
  232.         draw(-0.5,2.5)
  233.         draw(2,0)
  234.         draw(2,1)
  235.         draw(6,1)
  236.     close polygon
  237. end function
  238. function about()
  239.     new modal dialog box at (-1,-1)(4.5inch, 1.4inch)
  240.         add push button "OK" at (3.7inch, 1inch)+(0.5inch, 0.3inch)
  241.             dialog default push button
  242.         add custom button at (0 inch,0inch)+(4.5inch,0inch)
  243.         add custom button at (1.85 inch,0.1inch)+(0inch,1.2inch)
  244.         add custom button at (0inch, 0.1inch)+(1.8inch, 1.4inch)
  245.             script "on repaint call JTF.SCZ:DrawLogo() end repaint"
  246.             no line border
  247.         add text "
  248. s 2.0" at (2 inch,0.1inch)+(1.5inch,0.2inch) no line border text font "Osaka" text style "B"
  249.         add text "Copyright 
  250.  ASCII Corporation." at (2 inch,0.4inch)+(2.5inch,0.2inch) no line border text font "Helvetica"
  251.         add text "July. 31 1992" at (2 inch,0.7inch)+(2.5inch,0.2inch) no line border text font "Helvetica"
  252.     use dialog box
  253. end function
  254. function DrawLogo()
  255.     viewport (0,0)(1,1)
  256.     square window (0,0)(1,1)
  257.     open polygon    
  258.         move (0,1) draw (1,1) draw (0.5,0.2) draw (0,1)
  259.     close polygon
  260.     fill bg rgb(255,0,0)
  261.     fill polygon
  262.     kill polygon
  263.     move (0.07,0.75) text size 32 text color white() text font "Kyoto" draw text "W"
  264.     move (0.37,0.84) text size 18 text color white() text font "Kyoto" draw text "ING"
  265.     move (0.67,0.75) text size 32 text color white() text font "Kyoto" draw text "Z"
  266. end function
  267. function button_info()
  268.     new modal dialog box at (-1,-1)(4.3inch,3.8inch)
  269.         add text "BUTTON INFORMATION" at (1.0inch,0.2inch)+(2.5inch, 0.5inch) no line border text style "B" text color Blue()
  270.         add custom button at (0.1inch,0.6inch)+(4.1inch,0inch)
  271.         add custom button at (0.3inch,0.8inch)+(0.5inch,0.5inch)
  272.             script "on repaint call JTF.SCZ:ret_button() end repaint" no line border
  273.         add text "
  274. B" at (1.0inch,0.8inch)+(3inch, 0.5inch) no line border
  275.         add custom button at (0.3inch,1.5inch)+(0.5inch,0.5inch)
  276.             script "on repaint call JTF.SCZ:right_button() end repaint" no line border
  277.         add text "
  278. B" at (1.0inch,1.5inch)+(3inch, 0.5inch) no line border
  279.         add custom button at (0.3inch,2.2inch)+(0.5inch,0.5inch)
  280.             script "on repaint call JTF.SCZ:left_button() end repaint" no line border
  281.         add text "
  282. B" at (1.0inch,2.2inch)+(3inch, 0.5inch) no line border
  283.         add custom button at (0.3inch,2.92 inch)+(0.5inch,0.5inch)
  284.             script "on repaint call JTF.SCZ:home_button() end repaint" no line border
  285.         add text "
  286. B" at (1.0inch,2.9inch)+(3inch, 0.5inch) no line border
  287.         add push button "OK" at (3.5inch,3.4inch)+(0.5inch,0.3inch)
  288.             dialog default push button
  289.     use dialog box
  290. end function
  291.